Un esempio di suono mp3 (una base di Tullio Visioli)

Alcuni suoni rmi...

per suoni.wav.attivi
storia.attiva
ccoc "wav
fine

per suono.wav.esegui :suono
se non cosa? "audio [audio.off]
se non :audio [stop]
suoni.wav.attivi
as "suono.completo (parola :suono alfa.punto "wav)
verifica file.esiste :suono.completo
se_falso [stop]
mci.play1 :suono.completo
fine

per suono.wav.accompagna :suono
suoni.wav.attivi
as "suono.completo (parola :suono alfa.punto "wav)
verifica file.esiste :suono.completo
se_falso [stop]
mci.play2 :suono.completo
fine

per suono.rmi.esegui :suono
suoni.rmi.attivi
as "suono.completo (parola :suono alfa.punto "rmi)
verifica file.esiste :suono.completo
se_falso [stop]
mci.play1 :suono.completo
fine

per suono.rmi.accompagna :suono
suoni.rmi.attivi
as "suono.completo (parola :suono alfa.punto "rmi)
verifica file.esiste :suono.completo
se_falso [stop]
mci.play2 :suono.completo
fine

per suoni.mp3.attivi
storia.attiva
ccoc "mp3
fine

per suono.mp3.esegui :suono
suoni.mp3.attivi
as "suono.completo (parola :suono alfa.punto "mp3)
verifica file.esiste :suono.completo
se_falso [stop]
mci.play1 :suono.completo
fine

per suono.mp3.accompagna :suono
suoni.mp3.attivi
as "suono.completo (parola :suono alfa.punto "mp3)
verifica file.esiste :suono.completo
se_falso [stop]
mci.play2 :suono.completo
fine

per suono.chiudi
mci.chiudi
fine